www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admin_wuliedanArticle\D_edit_acticle.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"
Server.ScriptTimeout = 99999

%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->




<!--#include file=../../inc/ND_class_function.asp-->

<!--#include file=inc_lanmu_bl.asp-->
<%
AJAXshowLoader()


%>



<style type="text/css">
<!--
.STYLE3 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>



<div id="divProcessing" style="width:200px;height:30px;position:absolute;display:none">
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#0650D2><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...正在保存远程图片...请等待...</font></marquee></td></tr></table>
</div>

<br />


<div  id="l_list" style="filter:blendTrans(duration=1);  width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">



<%
biao2="[ND_nolistdanArticle]"



sys_content_type=trim(request("sys_content_type"))






set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),1)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if






if sys_content_type="" then 

%>
<script language="javascript">
alert("url参数sys_content_type不能为空");


</script>

<%

response.end
end if








set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where sys_content_type='"&sys_content_type&"' order by id asc",conn,1,3
if rs22.eof then 
rs22.addnew



if session(nd_admin_cach_varb_name)="" then
if request.cookies(nd_admin_cach_varb_name)="" then
uuuaa=""
else
uuuaa=request.cookies(nd_admin_cach_varb_name)
end if
else
uuuaa=session(nd_admin_cach_varb_name)
end if




rs22("sys_content_type")=sys_content_type
rs22("content")=" "
rs22("username")=uuuaa




rs22.update
end if

rs22.close
set rs22=nothing


set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where sys_content_type='"&sys_content_type&"' order by id asc",conn,1,1


%>

<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>


<script type="text/javascript">
<!--
function remoteUpload(o) {
	try{
		var strText = GetContentHTML() ;
var divProcessing=document.getElementById("divProcessing");
		var objField = document.getElementsByName("content_UploadText")[0];
		objField.value = strText ;

		if (o) {
			divProcessing.style.top = 500 ;
			divProcessing.style.left = 200 ;
			divProcessing.style.display = "";
			document.remoteuploadb.submit();
		}else{
			divProcessing.style.display = "none";
		}
	}
	catch(e){}
} 

function remoteUploadok() {
	try{
	divProcessing.style.display = "none";
	}
	catch(e){}
}

function GetContentHTML(){
	var strHTML ;
	try{
		var oEditor = FCKeditorAPI.GetInstance('Content') ;
		strHTML = oEditor.GetXHTML()
	}
	catch(e){
		strHTML = '';
	}
	return strHTML
}


var sLinkOriginalFileName = "originalfilename" ;
var sLinkSaveFileName = "savefilename" ;
var sLinkSavePathFileName = "UploadFileList" ;

function addUploadFile(originalFileName, saveFileName, savePathFileName){
	doInterfaceUpload(sLinkOriginalFileName, originalFileName);
	doInterfaceUpload(sLinkSaveFileName, saveFileName);
	doInterfaceUpload(sLinkSavePathFileName, savePathFileName);
}
function doInterfaceUpload(strLinkName, strValue){
	if (strValue=="") return;
	if (strLinkName){
		var objLinkUpload = document.getElementsByName(strLinkName)[0];
		if (objLinkUpload){
			if (objLinkUpload.value!=""){
				objLinkUpload.value = objLinkUpload.value + "|";
			}
			objLinkUpload.value = objLinkUpload.value + strValue;
			objLinkUpload.fireEvent("onchange");
		}
	}
}






function doChange(objText, objDrop){
	if (!objDrop) return;
	//if(document.myform.BriefTopic.selectedIndex<2){
	//	document.myform.BriefTopic.selectedIndex+=1;
	//}
	var str = objText.value;
	var arr = str.split("|");
	var nIndex = objDrop.selectedIndex;
	objDrop.length=1;
	for (var i=0; i<arr.length; i++){
		objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
	}
	objDrop.selectedIndex = nIndex;
}

//-->
</script>




<script language= JavaScript>
function SelectPic(){
  var arr=window.open('../D_select_upload_pic.asp', '', 'titlebar=no, toolbar=no, scrollbar=yes,Width=800, Height=600');
  if(arr!=null){
    //var ss=arr.split('|');
    //document.all.myform.ImageUrl.value=ss[0];
    //document.myform.ImageFileList.value=ss[0];
  }
  
  else
  {
  
  alert("弹出窗口被系统拦截掉了,请修改你系统设置")
  }
  
}
</script>




<form action="D_chk_edit_acticle.asp" method="post" target="_self" name="myform" id="myform">
<table  height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px">

<tr>

<td>

<table  height="589" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">




<tr>
<td height="30" align="center" class="adminth" colspan="4"><span class="STYLE3">添加文章  </span></td>
</tr>








<tr>
    <td width="163" height="30" align="center" bgcolor="#ffffff"><b>上传图片：</b></td>
          <td width="720" align="left" bgcolor="#EDF8FE" colspan="3"><iframe name="image" frameborder="0" width='100%' height="69" scrolling="no" src="../D_upfile.asp"></iframe></td>



 </tr>






<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff">


<strong><b>文章内容：</b></strong><br>文章内容分页标签<br>[page_fenye]<br>请注意标签字母小写

</td>

<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">




<textarea name="Content" id="Content" style="display:none"><%=replace(replace_textare_for_editor(Rs22("content")&""),"%",chr(37))%></textarea>



<script type="text/javascript">
<!--


var oFCKeditor = new FCKeditor('Content') ;
oFCKeditor.BasePath = '../../ND_editor/FCKeditor2_5/' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '600' ;
oFCKeditor.Height = '500' ;
oFCKeditor.Value = '' ;
oFCKeditor.ReplaceTextarea() ;

var oEditorb;

function FCKeditor_OnComplete( editorInstance )
{
	//alert("3423");
		oEditorb = FCKeditorAPI.GetInstance('Content') ;
		
}

function updatefck(str){

oEditorb.SetHTML(str);

}

//-->


</script>




</td>


</tr>








<tr>
<td width="163" height="34" align="center" bgcolor="#ffffff"><b>保存远程图片：</b></td>
   <td width="720" colspan="3" align="left" valign="top" bgcolor="#EDF8FE">

			<input name="AutoRemote" type="button" onClick="remoteUpload(1);" value='开始保存远程图片'> 
			</td>
        </tr>








<tr>
<td width="163" height="74" align="center" bgcolor="#ffffff"><b>首页图片：</b></td>
   <td width="720" colspan="3" align="left" valign="top" bgcolor="#B0E1FB"><input name="ImageUrl" type="text" id="ImageUrl" size="60" value="<%=Rs22("index_page_pic")%>" onpropertychange="document.all.pre.src=this.value;">
			<input type="hidden" name="UploadFileList" id="UploadFileList" onChange="doChange(this,document.myform.ImageFileList)" value="<%=Rs22("Uploadfile_list")%>">&nbsp;&nbsp;
			
			
			
			
			
			
			
			
			<br>直接从上传图片中选择：
			
			<%
			
			
			
Function Initpics(UploadFileList, ImageUrl)
	Dim i
	InitSelect = "<select name='ImageFileList' onChange=""ImageUrl.value=this.value;"">"
	InitSelect = InitSelect & "<option value=''>不选择首页推荐图片</option>"
	If Not IsNull(UploadFileList) Then
		UploadFileList = Split(UploadFileList, "|")
		For i = 0 To UBound(UploadFileList)
			If UploadFileList(i) <> "" Then
				InitSelect = InitSelect & "<option value=""" & UploadFileList(i) & """"
				If UploadFileList(i) = ImageUrl Then
					InitSelect = InitSelect & " selected"
				End If
				InitSelect = InitSelect & ">" & UploadFileList(i) & "</option>"
			End If
		Next
	End If
	Initpics = InitSelect & "</select>"
End Function
			
			
			response.write  Initpics(Rs22("Uploadfile_list"),Rs22("index_page_pic"))
			%>
			
			
			
			
			
			
			<input type='button' name='selectpic' value='从已上传图片中选择' onclick='SelectPic()' class="button">&nbsp;&nbsp;			<br />
			预览:<img src="<%=Rs22("index_page_pic")%>" width="80" height="72" id="pre"/></td>
        </tr>




		

<tr>
<td width="703" height="30" align="center" bgcolor="#D5EFFD" colspan="4">
  <input type="submit" value="修 改" /></td>

</tr>


<tr>
<td width="703" height="80" align="center" bgcolor="#ffffff" colspan="4"></td>

</tr>
</table>


</td>
</tr>
</table>


<input type="hidden" name="sys_content_type" value="<%=request("sys_content_type")%>"/>
<input type="hidden" name="id" value="<%=request("id")%>"/>


</form>


<form name="remoteuploadb" id="remoteuploadb" action="../D_remoteupload.asp" method="post" target="remoteupload">
<input type="hidden" name="content_UploadText" value=""/>
</form>
<iframe name="remoteupload" width="0" height="0"></iframe>

</div>





<script language=javascript>
AJAXfade(1,'l_list')





</script>
<%
AJAXcloseLoader()
%>